VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsAddAFunction"
Attribute VB_Creatable = True
Attribute VB_Exposed = False
Sub AfterClick()
    gIsFunction = True
    frmOPXStand.Caption = "Add a Function"
    frmOPXStand.cboRetType.Enabled = True
    
    'Populate screen with default data
    frmOPXStand.txtAuthor.Text = gAuthorName$
    frmOPXStand.txtMaxLen.Text = Str$(gMaxLen%)
    
    frmOPXStand.Show vbModal
End Sub
